home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
gsdb21.arc
/
DB_XPL14.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-01-04
|
1KB
|
55 lines
program DB_Xpl14;
uses
CRT,
GS_KeyI;
type
MyObjt = Object(GS_KeyI_Objt)
PROCEDURE Check_Func_Keys; virtual;
CONSTRUCTOR Init;
end;
var
MyKeyIn : MyObjt;
DumyStr : string;
CONSTRUCTOR MyObjt.Init;
begin
GS_KeyI_Objt.Init;
end;
PROCEDURE MyObjt.Check_Func_Keys;
var
i : integer;
begin
i := 0;
case Ch of
Kbd_F1 : i := 1;
Kbd_F2 : i := 2;
Kbd_F3 : i := 3;
Kbd_F4 : i := 4;
Kbd_F5 : i := 5;
Kbd_F6 : i := 6;
Kbd_F7 : i := 7;
Kbd_F8 : i := 8;
Kbd_F9 : i := 9;
Kbd_F10 : i := 10;
else GS_KeyI_Objt.Check_Func_Keys;
end;
if i > 0 then
begin
gotoxy(10,20);
write('':25);
gotoxy(10,20);
write('Function Key ',i,' Pressed');
end;
end;
begin
ClrScr;
MyKeyIn.Init;
DumyStr := 'TEST';
DumyStr := MyKeyIn.EditString(DumyStr,5,5,20);
end.